home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
QBasic & Borland Pascal & C
/
Delphi5.iso
/
Basic
/
doc
/
Visual Basic
/
Image855.gif
< prev
next >
Tile
Graphics Interchange Format
|
1999-11-20
|
329.0 KB
|
620x635
|
8-bit (152 colors)
ocr:
TeKCT iponenypbl. Private Sub Form Click() Dim Msg, Userinput 00bHBJIeHMe nepeMeHHax. Msg = "BBenure TATMHCKYI OYKBY MJIM YMCJIO OT 0no 9." Userinput =E InputBox (Msg) BBOn BBeneHHorO CHMBOJIA, If Not IsNumeric(Userinput) Then'3TO OykBa MIIM YMCJIO? If Len(UserInput) <<> 0 Then Select Case Asc(Userinput) ECJIM 3TO oykBa. Case 65To 90 HOJIXHBI OEITb 6oJibume OYKBBI. Msg = "Bbl BBEJIH 00JbluyIo 6ykBy s Msg = Msg & Chr (Asc(Userinput)) & Case 97 To 122 OJIXHBI OHTb ManeHbKie OYKBL. Msg "BLI BBEJIM ManeHbkylo OyKBy : Msg LF Msg & Chr (Asc (Userinput)) & - - Case Else He oykBa M He YMCJIO. Msg = "B ...
